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Problem ** note: this bulletin supercedes 1555-Ug AND 1555-11. ** 
!!!!!!!!!!!!!!!!!!!!!!!IREMDVE AND DISCARD BULLETINS 1555-1^1 AND 1555-11 
BEFORE INSERTING THIS OJLLETIN.!!!!!!!!!!!!!!!!!!!!!!!!!!! 

(1) Adds financje charge for returned nerchandise. 

(2) Status Code 4 does not return to 0 vhen paid. 

(3) Prints 0 balance statements (3.0). 

(4) Doesn't print 0 balance statanents. (3.1) 


* * * THESE LINE CHANGES ARE REQUIRED! 


* * * 


gQl MtIp n 

The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing LOAD"FROCESS". 

3. Make the following corrections; 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 

NOTE: DUE TO THE NUMBER OF PREVIOUS PATCHES TO THIS PROGRAM, ONLY THE NEW 
LINE WILL BE SHOWN. IF YOU DO WISH TO PRINT 0 BALANCES, SEE NOTE 
ON THE NEXT PAGE. 

** 3.0 CftttiY; ** 

New Line; 590 PRINT@576,"ACaXJNr ; ";CVI(DD$) ;;IPCVD(DB$)=0CRASC(DF$)=7THEN 
670ELSEGOSUB1440; AB#=PB#; FF#=0# 

New Line; 630 QOSUB1660;AB#=AB#+PC#;IFPC#>0THENGOSUB1630 

New Line; 1640 IPRINrTAB( 5 )VC$ ;TAB(16 )VD! ;TAB(24)USINGL2$ ;VH#;; 

LPRINrTAB( 50 )USINGL2$ ;AB# ;FF#=fT’#- (VH#* (VH#<0)) :RBIURN 

New Line; 1660 RQ#=INr(CDBL(RQ)*1000D0+.5D0)/ 

1000D0;FI#=INT(CDBL(PC1) *1000000+. 5D0 )/10000D0;PC#=0; 

IFSGN(PB#+FF#+PR# )=lANDPC$="Y"THENFC#-INr( (PB#+FF#+PR#)*FI#*100D0)/ 
100D0;FA#=EA#+PC# 
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** 3.0 AND 3.1 ** 

New Line; 1530 IFST<5ANDABS(PR#)+ABS(FF#)>=eiP#'IHENST>=l:GOaX)1570 
New Line; 2510 IN$=IEFT$(TIME$,8) ;GOSUB300;VC!=DX! ;VD!=-1;VA$="F" 

** ADD THESE LINES; (3.0 AND 3.1) ** 

New Line; 625 OPEN"R",3,PT$ 

New Line; 645 FF#=0#;IFTX:<>0THENK=DI;GOSUB2380 

New Line; 2384 IFEP=2ANDVA$="S"THENFF#=FF#-(VH#* (VH#<0)) 

New Line; 2386 IFEP=2THEN2410 

******* II3TE; IF YOU WISH TO PRINT 0 BALANCE STATaEMTS WHEN THERE HAS 
BEEN ACCOUNT ACTIVITY FOR ‘IHE MDNIH, CHANGE THE FOLLOWING LINES TO READ AS 
FOLLOWS; ******* 

* * * These changes are optional . * * * 

** 3.0 ONLY; ** 

New Line; 590 PRIIsrr@576,"AOOOUNr ; ”;CVI(DD$);;IF(CVD(DB$)= 

0ANDASC(DH$)=0 )CIRASC(DF$ )=7THEN670ELSBGOSUB1440;AB#=PB# ;FFiN0# 

** 3.1 ONLY; ** 

New Line; 910 IF(CVD(DB$)=0ANDASC(DH$)=0)ANDASC(DF$)<5THENLSETDF$=CBR$(0); 
PUT2, JR ;RETURNEI£EIFASC (DF$ )=7THENRETORNELSBQOSUB1290; AB#=PB#; SI>=Sr- 
(CB#>0ANDS1^) ;SV$=SV$ (ST) ;FP#=0# 

4. Type SAVE"PROCESS" to save the changes in the program. 

5. At TRSDOS READY, maJce a bacJcup copy of the oorrected diskette. 










